object AboutBox: TAboutBox Left = 302 Top = 289 HelpContext = 50 BorderIcons = [] BorderStyle = bsToolWindow Caption = 'About' ClientHeight = 235 ClientWidth = 399 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter ShowHint = True OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object BTN_Close: TSpeedButton Left = 124 Top = 201 Width = 150 Height = 25 Caption = '&Close' Flat = True Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333000033338833333333333333333F333333333333 0000333911833333983333333388F333333F3333000033391118333911833333 38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333 911118111118333338F3338F833338F3000033333911111111833333338F3338 3333F8330000333333911111183333333338F333333F83330000333333311111 8333333333338F3333383333000033333339111183333333333338F333833333 00003333339111118333333333333833338F3333000033333911181118333333 33338333338F333300003333911183911183333333383338F338F33300003333 9118333911183333338F33838F338F33000033333913333391113333338FF833 38F338F300003333333333333919333333388333338FFF830000333333333333 3333333333333333333888330000333333333333333333333333333333333333 0000} NumGlyphs = 2 OnClick = BTN_CloseClick end object Panel_Main: TPanel Left = 7 Top = 5 Width = 385 Height = 188 BevelInner = bvRaised BevelOuter = bvLowered BorderWidth = 3 Color = 13684944 TabOrder = 0 object Label_Name: TLabel Left = 15 Top = 15 Width = 9 Height = 13 Caption = '...' ShowAccelChar = False end object Label_Desc: TLabel Left = 15 Top = 42 Width = 9 Height = 16 Caption = '...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowAccelChar = False ShowHint = False end object Label_License: TLabel Left = 15 Top = 65 Width = 226 Height = 13 Caption = 'Freeware, Open Source (Mozilla Public License)' ShowAccelChar = False end object Label9: TLabel Left = 15 Top = 120 Width = 31 Height = 13 Caption = 'E-mail:' end object Label11: TLabel Left = 15 Top = 135 Width = 25 Height = 13 Caption = 'URL:' end object Label_URL: TLabel Left = 60 Top = 135 Width = 98 Height = 13 Cursor = crHandPoint Hint = 'Double-click to visit home page; Right-click to copy' Caption = 'http://keynote.prv.pl' PopupMenu = NetMenu OnDblClick = Label_URLDblClick OnMouseDown = Label_MAILTOMouseDown OnMouseUp = Label_MAILTOMouseUp end object Label_MAILTO: TLabel Left = 60 Top = 120 Width = 156 Height = 13 Cursor = crHandPoint Hint = 'Double-click to send email; Right-click to copy'#13#10'(No HTML-format' + 'ted email, PLEASE!)' Caption = 'marekjed@users.sourceforge.net' PopupMenu = NetMenu OnDblClick = Label_MAILTODblClick OnMouseDown = Label_MAILTOMouseDown OnMouseUp = Label_MAILTOMouseUp end object Label_Dart: TLabel Left = 15 Top = 150 Width = 335 Height = 26 Caption = 'Keynote was inspired by a fantastic freeware program DaRT Notes ' + #13#10'by Andre v.d. Merwe . See "dart.txt" for inf' + 'ormation.' end object Image1: TImage Left = 285 Top = 10 Width = 88 Height = 32 Cursor = crHandPoint Hint = 'Created with Borland Delphi 3.0' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True OnDblClick = Image1DblClick end object LB_RichEditVer: TLabel Left = 15 Top = 100 Width = 9 Height = 13 Caption = 'rtf' ShowAccelChar = False end object Label1: TLabel Left = 15 Top = 80 Width = 189 Height = 13 Caption = 'Copyright (c) Marek Jedlinski 2000-2002' ShowAccelChar = False end end object NetMenu: TPopupMenu Left = 350 Top = 75 object CopyEmailaddress1: TMenuItem Caption = 'Copy &E-mail address' OnClick = CopyEmailaddress1Click end object CopyuWebURL1: TMenuItem Caption = 'Copy &Web URL' OnClick = CopyuWebURL1Click end object N1: TMenuItem Caption = '-' end object Cancel1: TMenuItem Caption = '&Cancel' end end end